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f 



^-100 

struct S { 

SO tyrowO;- 
~SQ throw(); 

}; V 

^-103 

struct T { 
T();^104 

~T();-v_ 105 

}; 



101 



FIG. 1 



v 



void wopf(); 

106 

LI: { 

T ant; ^-107 

los^y < r 109 

if( x>0 ) { 

S boa; _/Mio 

in^ else { 

Scat;^H2 
T dog; ^113 
woof();^-ii4 

115-^ 

A catch( int y ) {s-i \i 
H6 J Selk;^H8 
120-^ woof 0^l9 

}_/M21 



L2:; 
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< 



f #include <setjmp.h> 

^-200 

struct EHJtem { f- 201 
struct EH_item * next; 
enum {DESTROY,TRY} tag; ^202 
union { 
struct { 

void * object;-/" 
void (*dtor)();^_ 2o4 
} destructor; 
struct { 2Q5 
jmp_buf buffer;-/" 
struct handler_spec* handlers^ 2Q6 
} try_block; 

}; 

}; 

struct EH_item * EH_stack_ptrK" 207 

FIG. 2 



/ 



# 
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f 



FIG. 3 

PRIOR ART 



stnict EHitem ra, rb, rc, rd, re, rt; 
LI: 

303^T(&ant); 
304^-ra.kind = DESTROY; 

ra.destructor.object = &ant; ra. destructor. dtor = &~T; 
306 ^~J"a. next = EH_stack_ptr; EH_stack_ptr = &ra; 
307^-rt.kind = TRY; 

it. next = EH_stack_ptr; 
rt.tryblock.handlers = . . ; 
31 >_^rt.next = EH_stack_ptr; EH_stack_ptr = &rt; 
31 setjmp( rt.try_block.buffer)=0 ) { 

if( x>0 ) { 
313^S(&boa); 
3 14^-rb.kind = DESTROY; 

rb. destructor. object = &boa; rb. destructor. dtor = &~S; 
rb.next = EH_stack_ptr; EH_stack_ptr = &rb; 
3 1 -/^EH_stack_ptr = EH_stack_ptr->next; 
~S(& boa); 
} else { 
S(cat); 

rc.ldnd = DESTROY; 

radestructor.object = &cat; rc. destructor. dtor = &~S; 
rc.riext = EH_stack_ptr; EH_stack_ptr = &rc; 
T(&dog); 

rd.kind = DESTROY; 

rd.destructor.object = &dog; rd. destructor. dtor = & ~T 
rd.next = EH_stack_ptr; EH_stack_ptr = &rd; 
woof(); 

EH_stack_ptr = EH_stack_ptr->next; 
~T(&dog); 

EH_stack_ptr = EH_stack_ptr->next; 
~S(& cat); 

} 

} else { 
S(&elk); 

re.kind = DESTROY; 

re.destructor.object = &elk; re.destructor.dtor = address of 
re. next = EH_stack_ptr; EH_stack_ptr = &re; 
~S(&elk); 

EH_stack_ptr = EH_stack_ptr->next; 

} 

-EH_stack_ptr = EH_stack_ptr->next; 
-EH_stack_ptr = EH_stack_ptr->next; 
~T(ant); 
L2: 



342- 
343- 
34 - 




/ 



/ 
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400. 



Determine state of target data structure at 
selected program points 



40 L/- 



Partition state of target data 
structure into components 



402- 



403- 



404 - 



M/ : 

Determine operations to be inserted at each 
selected program point in order to set each 
component of the state at that program point. 



V 



Compute placement of setting operations 
that eliminates partial redundancies 



Place the setting operations in the program 
according to the computed placement. 



( end ) 

FIG. 4 
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501 t i 

502-, ^ (succeed) T(&ant) lji 

- 500 



x>0? 



JJ^503 

(true)/\(false) 



\ (fail) 



504 



507 



match int? 



S(&boa) 



505 




524 



^^(succeed) ^ (f^il) 

527 526 



FIG. 5 



# 
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^ start ^ 



600. 



\l/ 

Does routine have 
cleanup instructions? 



601 



yes 



A. 



no 



602 



Build cleanup tree and 
cleanup states for routine. 



Compute down-safety transfer function 
DOWNSAFE(e) for each edge. 



604 
A_ 



Compute up-safety transfer 
function UPSAFE(e). 



V 



Solve flow-equations 
for DOWNSAFE*. 



Solve flow equations 
forUPSAFE*. 



605 



606-* 



Use DOWNSAFE* and UPSAFE* to 
place instructions that set components 
of the exception-handling stack. 



607-^1 



Remove exceptional edges ^ 



FIG. 6 



608- 



Insert prologue 



-603 



# 
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701 t i 

jsucceed) ^ T(&ant) L1 



700 




~S(&boa) 



(false) 



S(&cat) x 

708^/ 



T(&dog) 

709^Y 

(succeed) 

710^Q'" 

woof() 

(succeed) 

712-vQ' 

~T(&dog)\ 

713~vV \ 

(succeed) 




ZZZZZZ2Z3 





~S(&cat) 




try 




~T(&ant) 
/sssssss. 



FIG. 7 



~T(&dog) 



~S(&cat) 



try 



~T(&ant) 



S(&elk) 



-S(&cat) 



try 



~T(&ant) 



S(&cat) 



~S(&elk) 




~S(&elk) 



~T(&ant) 

tzzzzzzzza 



ZZZZZZZZ2 



726 
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C 



start CLEANUP 



900. 
901 



TREEQQ ) 



Has STATE[w] been set yet? 




903 



Allocate a new cleanup node n 
Set PARENT [«] := nil 
ROOT:=ra 
Set OPERATION^] := CONTINUE 
Set PTR_INDEX[«]:=NEW_INDEXO 



STATE[w]:=nil 
Set E to set of edges with u for a tail. 
Is E empty? 



904- 



/ 
f yes 



yes 



no 



" Is u the terminal or throw 

vertex of the routine? 



-902 
no 



■> 



Set e to any edge in E 
Is e an exceptional edge? 



no 



905 



Can edge e throw exception? 



yes 



907 



Does e have form "match 7?" for some 7? 



no 



909 



Recursively invoke 
CLEANUP_TREE(HEAD(e)) 



no 



yes 



r 



906 



Add TAIL(e) to set NEED 



^1 



XL 



yes 



908 



Invoke CATCH_CHAIN(«) 



912- 



V 



910 



Does edge e have form 
~D(&X) for some Z> and X? 



yes 



Set n:= ALLOCATE(STATE[HEAD(e)]) 
Set OPERATION^] := ~D(X) 
Set STATE[w] := n. 
OBJECT_INDEX[ M ]:=NEW_INDEX0; 



no 



911 



Set STATEfw] :=STATE[HEAD(e)] 



no 



Remove e from is. 
Is E the empty set? 



913 



FIG. 9 
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( start CATCH_CHAIN(m) ^ 



Set list HANDLERS to empty. 
Set w:=u 



V 



1000 



1001 



1006 



Is there an edge e of the form "match T y 
for some Tand such that TAIL(e)=w? 



yes 



no 



^ Invoke CLEANUP TREE(w) 



3L 



L 



1002 



Set edge g to edge with form "(true)" 
such that TAIL(g)=HEAD(e). 



Set n:= ALLOCATE (STATE[w]) 
STATE[u]:=n 
Set OPERATION[n] :=TRY 
Set CHAIN[n] -HANDLERS 
Set SETJMP_ INDEX[«]:=NEW_INDEX() 



Append CATCH(r,HEAD(g)) to list HANDLERS 



1007 



1003 



Q end ) 



Set edge/ to edge with form "(false)" 
such that TAIL(/)=HEAD(e). 



1004 



FIG. 10 



Set w:= HEAD(/) 



1005 



# 



^ start ^ 
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FIG. 11 




1100 



Set SAVER := nil 



1101 



> Set ROOT := nil 



71V 



Is there a terminal vertex v ? 

r 



v 



1104 



Invoke CLEANUP_TREE(v) 
STATE[v] := ROOT 



/l 105 



1102 
_2 



^ N_INDEX:= 0 



1103 



For each vertex u that is 
the tail of a normal edge, 
invoke CLEANUP_TREE(u) 



( start ALLOCATE(w)~^) 



1300 



Allocate a new cleanup tree node n 



1301 
_2 



SetPARENT[«]:=/n 
Set KIND_INDEX[n]:=NEW_INDEX0 



1302. 



1303 



Is SAVER=nil? 




yes ^ 


Is m=nil? 





no 



( start NEW_INDEX() ) 



Set£:=N INDEX 



MOO 



1201 



SetN INDEX:= N INDEX+1 



l202 \ Return*) 

FIG. 12 



1304 

_2_ 



Is OPERATION[w]=CONTINUE? 



no 



N304 



FIG. 13 



# 



12/25 




y ! 1400 

fsucceed) S T(&ant) ^ 



x>0? 



S(&boa) 



S(&cat) 

1408- vQ 

T(&dog) 

1409- \V 

(succeed) 

1410-xQ ^ N 
woofQ 

(succeed) 

1412- vp) \ 
~T(&dog)^ ' 

1413- \V 

(succeed) 



~S(&boa) 




~T(&ant) 


1406 


(succeed) ^ 





1426 



FIG. 14 



# 

^ start ^ 
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1500. 



Set all elements of T(w) to IDENTITY. 



1501. 



FIG. 15 



Is u in set NEED? 



1502. 



yes 



no 



Set edge e to edge such that TAIL(e)=w 



1503 
S 



> Set n : =ST ATE[HE AD(e)] 



1505. 



T(w)[PTR_INDEX[h]]:=TOP < 



CONTINUE 



2k. 



For each node m in the cleanup tree, 
set T(w) [PTR_INDEX[7«]] -BOTTOM 



2k. 



1506 



1504 



What is OPERATION^]? 



TRY 



T(w) [SETJMP_INDEX[n]]:=TOP 
1508 



1509- 



~D(8iX) 



2k. 



T(w)[OB JECT_INDEX[n]] :=TOP 



T 



1507 



T(m)[KIND_INDEX[«]]:=TOP 



yes 



2lL 



Set h:=PARENT[«] 
Is «=nil? 



1510 y es 

\/ 



no 
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^ start ^ 



1600, 



Set all elements of DOWNS AFE(e) to IDENTITY. 



1601^ 



Does edge e have form " "(fail)* *? 



1602- 



1603- 



yes 



Set DOWNSAFE := T(HEAD(e)) 



AlZ 



Invoke EFFECT(e,DOWNSAFE(e)) 



1604^- Is e an exceptional edge? 



1605^ 



no 



yes 



2iL 



Does there exist a normal edge f 
such that HEAD(e)- TAIL (f) 



no 



yes 



v 



Set all elements of 
1606^-j DOWNSAFE(e) to BOTTOM 



c 



end 



FIG. 16 
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^ start ^ 



170 k/- 



Set UPSAFE(e) := T(TAIL(e)) 



1702-/- 



Does edge e have form "(fail)"? 



yes 



no 



1708 



Invoke EFFECT(e,UPSAFE(e)) 



1703^ 



Set k :=0 




1704 
A, 



^ Is A^NJNDEX? 



1707-/" - Set£:=A:+l 

7K~ 



false 



yes 



no 



D O WNS AFE* (T AIL(e)) [k] ? 



true 



1705 



Set UPSAFE(c)[A:]:=TOP 



•1706 



FIG. 17 



9 
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1803 



( start EFFECTfe,/) 



Set //to set of nodes in cleanup tree 
that represent destructions of objects. 



Remove n from TV 



7K 



1801 



1800 



Is set N empty? 



yes 



no 



Set « to any node in N. 



no 



A 



1802 



Is address of object corresponding to node 
n modified by an instruction on edge el 



^1804 



yes 



Set/[OBJECT_INDEX[«]]:= BOTTOM; 



1805 



FIG. 18 



/ 

/ 
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# 



: V 

Set £ to set of edges in control-flow graph. 



FIG. 19 




^1900 



^ . Is set E empty? 



1901 



3L 



no 



Set e to any element of E. 



1902 



Set£:=0 -^1904 



1906 



Set k:=k+\ 
< 



^ Is £<N_INDEX ? 



true 



1905 



no 



, UPSAFE*(TAIL(e))(fc)? 



/ 



true 



1907 



false 



DOWNSAFE*(TAIL(e))(&)? 



•1908 



\/ 



false 



UPSAFE*(HEAD(e))(£)? 



■1909 



false 



1910 



false 



DOWNSAFE*(HEAD(e))(A)? 



true 



true 



Invoke BIT DIFFERENCE (k) 



1911 
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FIG. 20 



2000 

S_ 



V 



To which partial map 
does k belong? 



OBJECT_INDEX[«] 



20( 



OPERATION^] is for some X 

Insert "&REC(n).destructor.object = &X" 



SETJMP_INDEX[«] 



2002 



V 



^ Insert " setjmp( &REC («).try_block.buffer)" 



PTR_INDEX[«] ^ Is OPERATION (n)=CONTINUE ? 



2004 



yes 



Insert ' x EH_stack_ptr:=S AVER.next' ' 



^2003 



no 



2005 



Insert "EH_stack_ptr :=&REC («)" 



KIND_INDEX[«] 



2006 



OPERATIONfn] is TRY? 



yes 



Insert ,, ITEM(/i).tag := TRY" 



no 



2009 



Insert "ITEM(«).tag := DESTROY" 



^2007 



2008 
4 



Insert "&REC («).try_block.catch_info = CATCH(«)" 



V 



2010 



OPERATION^] is ~D(&X) for some X 
Insert "&REC (n).destructor.dtor =&~Z)" 



2011 



^ Is PARENT[«] *nil ? 




no 



Is OPERATION[P ARENT [ w] ] =CONTINUE ? 

"7 



2012 



2013 



Insert 

REC(n).next = &REC(PARENT[/j])" 



yes yes 



2014^ Is«=SAVER? 



7K 



Insert "REC («).next = REC(SAVER).next" 



^2015 
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Q start ^ 



FIG. 21 



2 ^ ±_ 

For each node /? in cleanup tree such 
that OPERATION(aO^CONTINUE 5 
add declaration for REC(h) to routine. 



\JZ 

210LH Is SAVER=nil ? 



no 



yes 



3L 



2 1 02y Insert ' "REC(SAVER).next=EH_stack_ptr' ' 



/ 

/ 
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jsucceed) ^ T(&ant) L ^ 



S(&boa) 



2207 

S(&cat) 

2208- vQ 

T(&dog) 

2209- \V 

(succeed) 

2210- \Q 

woof() 

2211- nV 

(succeed) 

2212- vQ 

~T(&dog) 

2213- Of 

(succeed) 



rc.destructor.object = 


&cat; 




rd.destructor.object = 


&dog; 


EH_stack_ptr = &rd; 






^258 


2260 




> 





EH_stack_ptr = &rc; 



2219 



/ 



-S(&boa) 



2263 

1_ 



S(&elk) 



EH_stack_ptr = ra.next; 



FIG. 22 




2253 

2 



ra.kind =DESTROY; 
ra. destructor, dtor = & ~*T 
ra. destructor, object = &ant; 
rt.kind =TRY; 
rt.next=&ra; 
rt.handlers = CHAIN(u) 
rc.kind = DESTROY 
rc.next = rt.next; 
rc.destructor.dtor = & -S; 
rd.kind:=DESTROY; 
rd.next=&rc; 

rd.destructor.dtor = & ~T; 
EH_stack_ptr = &rc; 
setjmp(&rt.try_block.buffer ) 




~S(cat) (succeed) 
^S(&elk) 

2222 




re.kind = DESTROY 
re.next = &ra; 
re.destructor.dtor = & ~S; 
re.object = &elk; 
EH_stack_ptr = &re; 



2269 



T ? ^ (succeed) ^ 



T(&ant 



2271 



EH_stack_ptr = ra.next; 
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r 



FIG. 23 



V 



struct EH_item ra, rb, re, rd, re, rt;^" 2301 
LI: / 

ra.next = EH_stack_ptr;^^ 2303 
T(&ant); 
if( x>0 ) { 
S(&boa); 
~S(&boa); 
} else { 

ra.kind = DESTROY; 

ra.destructor.dtor = &~T; 

ra. destructor, object = &ant; 

rt.kind = TRY; 

rt.next = &ra; 

rt.try_block.handlers = . . .; 

rt.next = &ra; 

rc.kind = DESTROY; 

rc. destructor, dtor = &~S; 

rc.next = &rt; 

rd.kind = DESTROY; 

rd.destructor.dtor = &-T; 

rd.next = &rc; 

eh_stack_ptr = &rc; 

if( setjmp( &rt.try_block.buffer)=0 ) { 
S(&cat); 

rc.destructor.object = &cat; 
T(&dog) 

rd.destructor.object = &dog; 
eh_stack_ptr = &rd; 
woof(); 

EH_stack_ptr = &rc; 
~T(&dog); 

EH_stack_ptr = ra.next; 
~S(&cat); 
} else { 

re.kind = DESTROY; 
re.next = &ra; 
re.destructor.dtor = &~S; 
eh_stack _ptr = &re; 
S(&elk); 

re.destructor.object = &elk; 
woof(); 

EH_stack_ptr = ra.next 
~S(&elk); 

} 

} 

~T&ant) 
L2: 



t 
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f struct R { 

R(); ^2402 
~R() throwQ;- 



FIG. 24 < 



,2403 



}; 



i=0; 

do {—2408 

R fox;— 2409 

woof();^ 2410 

i=i+l; 
} while( i<100 )~ 2412 



2550 



rf.kind:=DESTROY; 
rf.next:=... 

rf.destructor.dtor := &~S 



2500-^« 



i<100? 



FIG. 25 



2551 

J- 



rf.destructor.object := &fox; 
EH_stack_ptr := &rf; 




R(&fox) 




(faille 



2501 



2502 



(succeed) 



2553 



EH_stack_ptr :=...; 





woofQ 



(fail) 



(succeed) 



~R(&fox) 



t 
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FIG. 26 



true 



likely 



Set all elements of SDOWNS AFE(e) to IDENTITY. 



270 Is edge e rarely taken? 



yes 



no 



v 



2702^ 



Set SDOWNSAFE := to represent 
strict down-safety for e. 



2703- 



Is tail of e the tail of some 
other edge that is rarely taken? 



2704^- 



no 



yes 



2lL 



Set P to function that maps x to false if 
x=false, and "likely" otherwise. 



2705-^- 



For each element/of SDOWNS AFE(e), 
set /=Po/ 



end 





false 



FIG. 27 



t 
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Q start ^ 



280 U 



Ik- 



Set SUPSAFE := to function of e 
that represents strict up-safety 



2802- 



2803- 



Is edge e rarely taken? 



yes 



no 



Set k := 0 




FIG. 28 



2804 



Is£<N INDEX? 



2807/" Set k := k+\ ^ 



7\ 



false 



no 



V 



end 



yes 



$DOWNSAFE*(TAIL(e))[fc]? 



true 



likely 



5 



2805 



Set $UPSAFE(e)[£]:=$UPSAFE(e)oTOP 



-2806 
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FIG. 29 



^ start ^ 



true 



c 



$UPSAFE*(TAIL(>))(£)? 



true 



likely 



^2900 



false 



$DOWNSAFE*(TAIL(e))(#)? 



-2901 



false 



V 



$UPSAFE*(HEAD(e))(jfc)? 



false 



2903 
S 



false 



$DOWNSAFE*(HEAD(e))(/t)? 



2904 



end 



> 



likely 



Insert guard 



true 



v 



-2902 



true 



Insert on edge e the operation corresponding to k 



2905 



ABOVE 



CONTINUE 




ID 



